Best Tools for JAVA

home *** CD-ROM | disk | FTP | other *** search

/ Best Tools for JAVA / Best Tools for JAVA.iso / GRAPHICS / BMPWIZ / BMPWIZ.ZIP / RIS_DEF.BAS < prev next >

QuickBasic BSAVE Image | 1994-12-29 | 1.0 KB

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: QuickBasic BSAVE Image (image/bsave).

You can browse this item here: RIS_DEF.BAS

Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	QuickBasic BSAVE Image `(image/bsave)`	magic	Supported
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
`100%`	TrID	QuickBasic BSAVE binary data	default

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fd 03 00 00 0d 0a 27 20 | 46 72 6f 6d 20 42 2f 4e |......' |From B/N|
|00000010| 20 74 6f 20 31 36 20 67 | 72 61 79 20 4f 52 20 42 | to 16 g|ray OR B|
|00000020| 2f 4e 2e 0d 0a 0d 0a 20 | 0d 0a 73 74 72 69 6e 67 |/N..... |..string|
|00000030| 20 20 20 20 09 69 6e 70 | 46 69 6c 65 0d 0a 44 65 |    .inp|File..De|
|00000040| 76 43 6f 6e 09 49 62 6d | 70 2c 4f 62 6d 70 67 2c |vCon.Ibm|p,Obmpg,|
|00000050| 4f 62 6d 70 62 0d 0a 52 | 47 42 09 70 69 78 0d 0a |Obmpb..R|GB.pix..|
|00000060| 66 6c 6f 61 74 20 20 09 | 78 2c 79 2c 76 2c 7a 2c |float  .|x,y,v,z,|
|00000070| 77 0d 0a 0d 0a 69 6e 70 | 46 69 6c 65 3d 22 54 65 |w....inp|File="Te|
|00000080| 73 74 69 62 6e 2e 62 6d | 70 22 0d 0a 0d 0a 49 62 |stibn.bm|p"....Ib|
|00000090| 6d 70 3d 4c 6f 61 64 49 | 6d 61 67 65 28 69 6e 70 |mp=LoadI|mage(inp|
|000000a0| 46 69 6c 65 29 0d 0a 4f | 62 6d 70 67 3d 43 72 65 |File)..O|bmpg=Cre|
|000000b0| 61 74 65 49 6d 61 67 65 | 28 49 62 6d 70 2e 57 69 |ateImage|(Ibmp.Wi|
|000000c0| 64 74 68 2f 34 2c 49 62 | 6d 70 2e 48 65 69 67 68 |dth/4,Ib|mp.Heigh|
|000000d0| 74 2f 34 2c 34 29 0d 0a | 4f 62 6d 70 62 3d 43 72 |t/4,4)..|Obmpb=Cr|
|000000e0| 65 61 74 65 49 6d 61 67 | 65 28 49 62 6d 70 2e 57 |eateImag|e(Ibmp.W|
|000000f0| 69 64 74 68 2f 34 2c 49 | 62 6d 70 2e 48 65 69 67 |idth/4,I|bmp.Heig|
|00000100| 68 74 2f 34 2c 31 29 0d | 0a 50 72 65 76 69 65 77 |ht/4,1).|.Preview|
|00000110| 28 49 62 6d 70 2c 22 49 | 6e 70 75 74 22 2c 35 2c |(Ibmp,"I|nput",5,|
|00000120| 35 29 0d 0a 0d 0a 46 6f | 72 20 79 3d 30 20 74 6f |5)....Fo|r y=0 to|
|00000130| 20 49 62 6d 70 2e 48 65 | 69 67 68 74 2d 31 20 73 | Ibmp.He|ight-1 s|
|00000140| 74 65 70 20 34 0d 0a 20 | 20 20 44 73 70 57 68 69 |tep 4.. |  DspWhi|
|00000150| 6c 65 28 22 43 6f 6e 76 | 65 72 73 69 6f 6e 65 22 |le("Conv|ersione"|
|00000160| 2c 31 30 30 2f 49 62 6d | 70 2e 48 65 69 67 68 74 |,100/Ibm|p.Height|
|00000170| 2a 79 29 0d 0a 20 20 20 | 46 6f 72 20 78 3d 30 20 |*y)..   |For x=0 |
|00000180| 74 6f 20 49 62 6d 70 2e | 57 69 64 74 68 2d 31 20 |to Ibmp.|Width-1 |
|00000190| 73 74 65 70 20 34 0d 0a | 20 20 20 20 20 20 76 3d |step 4..|      v=|
|000001a0| 30 0d 0a 20 20 20 20 20 | 20 66 6f 72 20 7a 3d 30 |0..     | for z=0|
|000001b0| 20 74 6f 20 33 0d 0a 20 | 20 20 20 20 20 20 20 20 | to 3.. |        |
|000001c0| 66 6f 72 20 77 3d 30 20 | 74 6f 20 33 0d 0a 20 20 |for w=0 |to 3..  |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 70 69 78 3d 47 65 |        |  pix=Ge|
|000001e0| 74 50 69 78 65 6c 28 49 | 62 6d 70 2c 78 2b 77 2c |tPixel(I|bmp,x+w,|
|000001f0| 79 2b 7a 29 09 09 27 20 | 63 61 6c 63 20 6c 75 6d |y+z)..' |calc lum|
|00000200| 20 61 76 65 72 61 67 65 | 0d 0a 20 20 20 20 20 20 | average|..      |
|00000210| 20 20 20 20 20 20 76 3d | 76 2b 70 69 78 2e 4c 75 |      v=|v+pix.Lu|
|00000220| 6d 0d 0a 20 20 20 20 20 | 20 20 20 20 6e 65 78 74 |m..     |    next|
|00000230| 20 77 0d 0a 20 20 20 20 | 20 20 6e 65 78 74 20 7a | w..    |  next z|
|00000240| 09 0d 0a 20 20 20 20 20 | 20 70 69 78 2e 4c 75 6d |...     | pix.Lum|
|00000250| 3d 76 2f 31 36 0d 0a 20 | 20 20 20 20 20 53 65 74 |=v/16.. |     Set|
|00000260| 50 69 78 65 6c 28 4f 62 | 6d 70 67 2c 78 2f 34 2c |Pixel(Ob|mpg,x/4,|
|00000270| 79 2f 34 2c 70 69 78 29 | 09 09 27 20 73 65 74 20 |y/4,pix)|..' set |
|00000280| 6f 75 74 70 75 74 20 69 | 6d 61 67 65 20 70 69 78 |output i|mage pix|
|00000290| 65 6c 0d 0a 20 20 20 20 | 20 20 69 66 28 70 69 78 |el..    |  if(pix|
|000002a0| 2e 4c 75 6d 3e 32 30 30 | 29 0d 0a 20 20 20 20 20 |.Lum>200|)..     |
|000002b0| 20 20 20 20 53 65 74 50 | 69 78 65 6c 28 4f 62 6d |    SetP|ixel(Obm|
|000002c0| 70 62 2c 78 2f 34 2c 79 | 2f 34 2c 70 69 78 29 09 |pb,x/4,y|/4,pix).|
|000002d0| 09 27 20 73 65 74 20 6f | 75 74 70 75 74 20 69 6d |.' set o|utput im|
|000002e0| 61 67 65 20 70 69 78 65 | 6c 0d 0a 20 20 20 20 20 |age pixe|l..     |
|000002f0| 20 65 6e 64 69 66 0d 0a | 20 20 20 4e 65 78 74 20 | endif..|   Next |
|00000300| 78 0d 0a 20 20 20 69 66 | 28 79 25 38 3d 30 29 0d |x..   if|(y%8=0).|
|00000310| 0a 20 20 20 20 20 20 50 | 72 65 76 69 65 77 28 4f |.      P|review(O|
|00000320| 62 6d 70 67 2c 22 4f 75 | 74 70 75 74 20 67 72 61 |bmpg,"Ou|tput gra|
|00000330| 79 22 2c 35 30 30 2c 35 | 29 0d 0a 20 20 20 20 20 |y",500,5|)..     |
|00000340| 20 50 72 65 76 69 65 77 | 28 4f 62 6d 70 62 2c 22 | Preview|(Obmpb,"|
|00000350| 4f 75 74 70 75 74 20 62 | 2f 6e 22 2c 35 30 30 2c |Output b|/n",500,|
|00000360| 31 31 35 29 0d 0a 20 20 | 20 65 6e 64 69 66 0d 0a |115)..  | endif..|
|00000370| 4e 65 78 74 20 79 0d 0a | 50 72 65 76 69 65 77 28 |Next y..|Preview(|
|00000380| 4f 62 6d 70 67 2c 22 4f | 75 74 70 75 74 20 67 72 |Obmpg,"O|utput gr|
|00000390| 61 79 22 2c 35 30 30 2c | 35 29 0d 0a 50 72 65 76 |ay",500,|5)..Prev|
|000003a0| 69 65 77 28 4f 62 6d 70 | 62 2c 22 4f 75 74 70 75 |iew(Obmp|b,"Outpu|
|000003b0| 74 20 62 2f 6e 22 2c 35 | 30 30 2c 38 35 29 0d 0a |t b/n",5|00,85)..|
|000003c0| 0d 0a 27 53 61 76 65 49 | 6d 61 67 65 28 4f 62 6d |..'SaveI|mage(Obm|
|000003d0| 70 2c 22 74 65 73 74 6f | 2e 62 6d 70 22 29 0d 0a |p,"testo|.bmp")..|
|000003e0| 44 73 70 57 68 69 6c 65 | 28 22 22 2c 30 29 0d 0a |DspWhile|("",0)..|
|000003f0| 44 73 70 4d 65 73 28 22 | 4f 6b 22 29 0d 0a 0d 0a |DspMes("|Ok")....|
|00000400| 20                      |                         |        |        |
+--------+-------------------------+-------------------------+--------+--------+